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: Version: *v04-000' 
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i* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
it ALL RIGHTS RESERVED. 


ie THIS fo cheb he FURNISHED ere . LICENSE AND Ag h + USED AND sop ree 


{t TRANSFERRED. 


i# THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTIC 
in oepokat ion NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMEN 


it DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
'® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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1 
' 
' 
lee 
: 
MODULE: PREFIX.REQ 

' 
! 
' 
' 
! 
! 


! FACILITY: LINKER 


i ABSTRACT: | 
REQUIRE FILE TO DEFINE LOCALLY SOME | 
INTERESTING GENERAL SYMBOLS, STRUCTURES AND MACROS 

HISTORY: | 

: AUTHOR: T.J. PORTER 15-DEC-76 

MODIFICATIONS: 

NO. DATE PROGRAMMER PURPOSE 

i Q1 19-OCT-77 K.D. MORSE REMOVED CSTRING AND SHSSEQUENCE MACROS. 

& 02. 19-0CT-77 K.D. MORSE REMOVED TRUE AND FALSE DEFINITIONS 

ie 
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i FUNCTIONAL DESCRIPTION: 

i HIS REQUIRE FILE DEFINES SOME GENERAL, LOCAL VALUES AND MACROS 
i WHICH CANNOT OR ARE BEST NOT DEFINED GLOBALLY. 


MACRO 
SHORT = UNSIGNED(6)% ' SHORT LITERAL ATTRIBUTE 
BYTLIT = UNS ONE D C8)E i UNSIGNED BYTE ATTRIBUTE 
WORDLIT = UNSIGNED(165%, i UNSIGNED WORD ATTRIBUTE 


; MACRO THAT DESCRIBES A STRING 
STRINGDESC(STRING) = XCHARCOUNT(STRING), UPLIT(ZASCII STRING)%, 
MACRO TO GENERATE A QUADWORD STRING DESCRIPTOR 
DESCRIPTOR(STRING) = VECTORC2] INITIAL (STRINGDESC(STRING) )%; 
i MACRO TO GENERATE A COUNTED STRING AS A BYTE VECTOR 
CSTRING(STRING) = UPLIT BYTE(XCHARCOUNT (STRING) ,STRING)%, 
{ MACRO TO ALLOCATE AN N-CHARACTER STORAGE VECTOR 
; CHSSEQUENCE(N) = VECTORCCHSALLOCATION(N) J2; 
; 
C 


i A SET OF MACROS FOR GENERATING STRUCTURE REFERENCE MACROS 
OMPILETIME 


XXXXXXXSIZE = 0; 
CRO 
BYTEBLOCKFIELDS (BLENAMDCJ = 
MACRO NAME (STRING (BL KNAM) » SC_START") = 


XXOQOQQOOBBE (BLKNAM, 0, SREMAINING) ; 
GLOBAL LITERAL %NAME(XSTRING(BLKNAM) ,"SC_SIZE") = XXXXXXXSIZE : WEAK, 


XXXXXXXXBBF( BLKNAM, OFF, NAM, BYTS)(C] = 


MACRO ZNAME( ZSTRING(BLKNAM), '$", ZSTRING(NAM)) = OFF, 0, MIN(BYTS*8, 32), 


LASS IGN(XXXXXXXSIZE OFF +BYTSS 
XXXXXXXXBBF( BLKNAM, OFF+BYTS, ZREMAINING) 2; 


LITERAL 
SYMSC MAXLNG = 15, | MAXIMUM LENGTH OF STRINGS 
CONTROL_REGION = %X'40000000', | START OF CONTROL REGION 
SYSTEM SPACE = %x'80000000', i START OF SYSTEM SPACE 
MAX_ADBRESS = %X'C0000000'; i MAXIMUM VIRTUAL ADDRESS 
STRUCTURE 


SUADVEC TORE! 2A) ! A VECTOR OF N QUADWORDS 


wt 
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MACRO 


(QUADVECTOR + 8*1); 


THE FOLLOWING MACROS GENERATE ACCESSING MACROS FO 


R BLOCK 
STRUCTURES WHICH HAVE FIELDS OF BYTE, WORD OR LONG WIDTH 


COMPILETIME 


YYYYYYYSIZE = 0; 


GENBLOCKF IELDS(BLKNAM) (J = 
CALLING SEQUENCE: 


etimmtaes yet we YY 
FLDNAM1 ,FLDWIDTH1, 
FLDNAM2, FLDWIDTH2, 


a! FLDNAMN, FLDWIDTHN); 
" FLDNAMI = THE NAME OF FIELD I IN THE BLOCK 
FLDWIDTH] = WIDTH IN BYTES OF FIELD I 


THE MACRO GENERATES FIELD ACCESS MACROS OF THE FORM 
aes vies f WHERE X eLY B, W, L FOR FIELD WIDTHS OF 


IN ADDITION A MACRO OF FORM INIT_BLKNAM IS 

GENERATED ror STATIC INT TIALLTATTON OF BLOCK. FOR EXAMPLE 
INITIAL (INIT_BLKNAM(VALUE1,VALUE2,....VALUEN) ) 

GENERATE A MACRO TO REFERENCE THE START OF THE BLOCK 


MACRO ZNAME(ZSTRING(BLKNAM) ,"SC_START') = 
0,0,0,0XQU0TER; 


GENERATE THE ACCESSING MACROS FOR ALL THE FIELDS OF THE BLOCK 
YYYYYYYYBBF (BLKNAM,0, REMAINING) ; 


DEFINE A it LITERAL (FOR LINK TIME pea DETECTION) WHOSE 
LUE IS NUMBER OF BYTES IN BLOCK 


GLOBAL LITERAL %NAME(ZSTRING(BLKNAM),*$C_SIZE") = YYYYYYYSIZE 
NOW os A Rts THAT CAN BE USED TO STATICALLY INITIALIZE 


LL FIELDS OF THIS BLOCK 
MACRO NAME IS INIT_BLKNAM 


E 1 
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! VARIABLE WHICH IS RESULTANT BLOCK LENGTH 


: WEAK; 


YYYCRESINIMACRO(ZNAME ("INIT_',%STRING(BLKNAM)), (ZZZ2BBF(ZREMAINING)), (XXXBBF(ZREMAINING)))2, 
AUXILIARY MACROS:- 
FOVERES IRs FORMAL, 


BOD 
ACRO NAME FORMAL OTREMOVE BODYZQUOTER2, 


F 
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: 
ZZZ7BBFCFLONAM, FLDWIDTH] = ZNAME(XZSTRING(FLDNAM),'_FML')%, 


XXXBBFCFLONAM, FLDWIDTH] = %IF FLOWIDTH EQL 1 X%THEN BYTE 
ZELSE oR tA EQL 2 %THEN WORD 


aFI 
(ZNAME (ZSTRING(FLDNAM),*_FML'))%, 


YYYFLDPREF IX (WIDTH) ores WIDTH EQL 1 


H 
ZELSE ZIF WIDTH EQL ? 
RTHEN W 
ZELSE L 
RFI 
RFI2, 


YYYYYYYYBBF( BLKNAM, OFF, NAM, BYTS)C) = 
MACRO %NAME( XSTRING(BLKNAM), °$', X%STRING(YYYFLDPREFIX(BYTS)),'_", %STRING(NAM)) = 
OFF, 0, MIN(BYTS*&, 32), 0 XQUOTEX; 
MASSIGN(YYYYYYYSIZE OFF +BYTS) 
YYYYYYYYBBF( BLKNAM, OFF+BYTS, XZREMAINING) 2; 
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